home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1998 #2 / Amiga Plus CD - 1998 - No. 2.iso / pd / musik / eagleplayer2.00 / rexx / ep_getmodulename.dopus < prev    next >
Text File  |  1997-08-05  |  874b  |  43 lines
  1. /* Eagleplayer control using Diropus4
  2.    (c) 1992-97 DEFECT Softworks
  3.  
  4.    returns current module name
  5.  
  6.    ------------------------------------------------------------------------
  7.    Call as:
  8.    - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
  9.    [ARexx]  Eagleplayer2:Rexx/EP_GetModuleName.dopus {p}
  10.  
  11.    Flags:   none required
  12. */
  13. parse arg opusport
  14.  
  15. options results
  16.  
  17. if pos('rexx_EP',SHOW('Ports')) = 0 then do
  18.  address value opusport
  19.  toptext 'Eagleplayerport not found!'
  20.  exit 0
  21.  end
  22.  
  23. address 'rexx_EP'
  24. status g ply
  25. aha = result
  26. if aha="yes" then
  27.   do
  28.    status m fil
  29.    name = result
  30.    status m pnr
  31.    num = result
  32.    'status p 'num' nam'
  33.    player = result
  34.    address value opusport
  35.    toptext 'Eagleplayer:  Player: '||player||'  Module: '||name
  36.   end
  37.  else
  38.   do
  39.    address value opusport
  40.    toptext 'Eagleplayer: No Module playing!'
  41.   end
  42. exit
  43.